home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
FTAG2.422
< prev
next >
Wrap
Text File
|
1993-04-16
|
7KB
|
296 lines
Part 2 of 3 (FTAG.422)
Commander Riker #1 @7751
3Saturday, April 10, 1993 1 6:52 am
═══[ Step 7 ]═══════════════════════════════════════════════════════
Open "XFER.C" and let the fun begin <g>...
Find int ratio_ok and add the following:
= if (!(thisuser.exempt & exempt_ratio))
= if ((syscfg.req_ratio>0.0001) && (ratio()<syscfg.req_ratio)) {
= ok=0;
if (!in_tag) { /* FT422 */
= nl();
= nl();
= sprintf(s,"%s %-5.3f. %s %-5.3f %s.",
= get_string(730), ratio(),
= get_string(731), syscfg.req_ratio,
= get_string(732));
= pl(s);
= nl();
= }
= }
=
= if (!(thisuser.exempt & exempt_post))
= if ((syscfg.post_call_ratio>0.0001) && (post_ratio()<syscfg.post_call_rat
io)) {
= ok=0;
if (!in_tag) { /* FT422 */
= nl();
= nl();
= sprintf(s,"%s %-5.3f. %s %-5.3f %s.",
= get_string(733), post_ratio(),
= get_string(731), syscfg.post_call_ratio,
Add these lines to printinfo
= int i,next,fc;
= fc=thisuser.sysstatus & sysstatus_funky_colors;
+ if (file_ptr>=MAX_FILES)
+ file_ptr=0;
+ if ((in_tag) && !(thisuser.sysstatus&sysstatus_no_tag) && (!x_only)) {
+ file_index[file_ptr].directory=udir[curdir].subnum;
+ strcpy(file_index[file_ptr].filename,u->filename);
+ if (fc)
+ sprintf(s,"7[%c%2d7] ",0
+ (check_batch_queue(u->filename))?'1':'2', file_ptr+1);
+ else
+ sprintf(s,"[%2d] ",file_ptr+1);
+ file_ptr++;
+ osan(s,abort,&next);
+ }
Go futher down into printinfo
= if (fc)
= ansic(5);
- pla(u->description,abort);
+ strcpy(s,u->description);
+ if ((in_tag) && !(thisuser.sysstatus&sysstatus_no_tag) && (!x_only))
+ if (strlen(s)>53)
+ s[53]=0;
+ pla(s,abort);
= if ((!*abort) && (thisuser.num_extended) && (u->mask & mask_extended))
Find listfiles and add the following:
= char s[81];
= int i,abort,next=0;
+ uploadsrec u;
+ in_tag=1;
+ file_ptr=0;
= dliscan();
= file_mask(s);
= abort=0;
= num_listed=0;
= printtitle(&abort);
= for (i=1; (i<=numf) && (!abort) && (!hangup); i++) {
= SETREC(i);
= read(dlf,(void *)&u,sizeof(uploadsrec));
= if (compare(s,u.filename))
= printinfo(&u,&abort);
= else if (!empty())
= checka(&abort,&next);
= }
+ tag_files(); /* FT422 */
= closedl();
= if (!abort) {
= nl();
= nl();
= sprintf(s,"%s: %d",get_string(744), num_listed);
= pl(s);
= nl();
= }
+ in_tag=0; /* FT422 */
= }
Next look for nscandir...
= if ((dir_dates[udir[d].subnum]) && (dir_dates[udir[d].subnum]<nscandate))
= return;
=
+ in_tag=1; /* FT422 */
+ file_ptr=0; /* FT422 */
= od=curdir;
= curdir=d;
= dt=title;
= dliscan();
= if (this_date>=nscandate) {
= for (i=1; (i<=numf) && (!(*abort)) && (!hangup); i++) {
= SETREC(i);
= read(dlf,(void *)&u,sizeof(uploadsrec));
= if (u.daten>=nscandate) {
= if (dt) {
= printtitle(abort);
= dt=0;
= }
= printinfo(&u,abort);
= } else if (!empty())
= checka(abort,&next);
=
= }
=
= }
+ tag_files(); /* FT422 */
= closedl();
= curdir=od;
+ in_tag=0; /* FT422 */
= }
Next find "void searchall()"
= void searchall(void)
= {
= int i,i1,pts,abort,pty,ocd,next=0;
= char s[81],s1[81];
= uploadsrec u;
=
= abort=0;
= ocd=curdir;
= if (x_only) {
= strcpy(s,"*.*");
= align(s);
= } else {
+ in_tag=1; /* FT422 */
+ file_ptr=0; /* FT422 */
= nl();
= nl();
= pl(get_string(745));
= file_mask(s);
= }
= num_listed=0;
= for (i=0; (i<num_dirs) && (!abort) && (!hangup) && (udir[i].subnum!=-1); i+
+) {
= i1=udir[i].subnum;
= pts=0;
= if (qsc_n[i1/32]&(1L<<(i1%32)))
= pts=1;
= pts=1;
= /* remove pts=1 to search only marked directories */
= if (pts) {
= curdir=i;
= dliscan();
= pty=1;
= for (i1=1; (i1<=numf) && (!abort) && (!hangup); i1++) {
= SETREC(i1);
= read(dlf,(void *)&u,sizeof(uploadsrec));
= if (compare(s,u.filename)) {
= if (pty) {
= printtitle(&abort);
= pty=0;
= }
= printinfo(&u,&abort);
= } else if (!empty())
= checka(&abort,&next);
= }
+ tag_files(); /* FT422 */
= closedl();
= }
= }
= curdir=ocd;
= if ((num_listed) && (!abort)) {
= nl();
= nl();
= sprintf(s,"%s: %d",get_string(744), num_listed);
= pl(s);
= nl();
= }
+ in_tag=0; /* FT422 */
= }
Next find "void finddescription"
= nl();
= nl();
+ in_tag=1;
+ file_ptr=0;
= pl("Find description -");
and near the end of that one add
= }
+ in_tag=0;
=}
= void finddescription(void)
= {
= uploadsrec u;
= int i,i1,i2,abort,pty,d,ocd,pts,next=0;
= char s[81],s1[81];
=
= nl();
= nl();
+ in_tag=1; /* FT422 */
+ file_ptr=0; /* FT422 */
= pl(get_string(793));
= nl();
= pl(get_string(794));
= outstr(":");
= input(s1,58);
= if (s1[0]==0)
= return;
and a little further down...
= strcpy(s,u.description);
= for (i2=0; i2<strlen(s); i2++)
= s[i2]=upcase(s[i2]);
= if (strstr(s,s1)!=NULL) {
= if (pty) {
= printtitle(&abort);
= pty=0;
= }
= printinfo(&u,&abort);
= } else if (!empty())
= checka(&abort,&next);
= }
+ tag_files(); /* FT422 */
= closedl();
= }
= }
= curdir=ocd;
= if ((num_listed) && (!abort)) {
= nl();
= nl();
= sprintf(s,"%s: %d",get_string(744), num_listed);
= pl(s);
= nl();
= }
+ in_tag=0; /* FT422 */
= }
Almost there.... Find "void xfer_defaults()" and do the following...
= do {
= outchr(12);
= pl(get_string(804));
= pl(get_string(805));
= outstr(get_string(806));
= npr(" (%s).\r\n", thisuser.sysstatus & sysstatus_nscan_file_system?
= str_yes:str_no); /* NOTE */
= outstr(get_string(807));
= npr(" (%d %s%s).\r\n", thisuser.num_extended, get_string(808),
= thisuser.num_extended==1?"":"s"); /* NOTE */
+ npr("5. %sable file tagging.\r\n",thisuser.sysstatus & sysstatus_no_tag?
"En":"Dis"); /* FT422 - NOTE*/
= pl(get_string(809));
= nl();
= prt(2,get_string(297));
= helpl=32;
@ ch=onek("Q12345"); /* FT422 */
= switch(ch) {
= case 'Q':
= done=1;
add the following inside that switch statement...
= thisuser.num_extended=i;
= }
= break;
+ case '5': /* FT422 */
+ if (thisuser.sysstatus & sysstatus_no_tag) /* FT422 */
+ thisuser.sysstatus -= sysstatus_no_tag; /* FT422 */
+ else /* FT422 */
+ thisuser.sysstatus += sysstatus_no_tag; /* FT422 */
+ break; /* FT422 */
Close "XFER.C"